home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / invtrig.zip / INVTRIG.PAS < prev    next >
Pascal/Delphi Source File  |  1993-02-02  |  613b  |  40 lines
  1. Unit InvTrig;
  2.  
  3. Interface
  4.  
  5. Function InvSin(X : Real) : Real;
  6. Function InvCos(X : Real) : Real;
  7. Function InvTan(X : Real) : Real;
  8.  
  9. Implementation
  10.  
  11. Function InvSin(X : Real) : Real;
  12. Begin
  13.   If Abs(X) = 1.0 Then
  14.      X := Pi/2.0
  15.   Else
  16.      X := ArcTan(X/Sqrt(1-X*X));
  17. X := X*180/Pi;
  18. InvSin := X;
  19. End;
  20.  
  21. Function InvCos(X : Real) : Real;
  22. Begin
  23.   If Abs(X) = 0.0 Then
  24.      X := Pi/2.0
  25.   Else
  26.      X := ArcTan(Sqrt(1-X*X)/X);
  27. IF X<0.0 Then X := X+Pi;
  28. X := X*180/Pi;
  29. InvCos := X;
  30. End;
  31.  
  32. Function InvTan(X : Real) : Real;
  33. Begin
  34. X := ArcTan(X);
  35. X := X*180/Pi;
  36. InvTan := X;
  37. End;
  38.  
  39. End.
  40.